home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / euphor14.zip / SIMPLE.EX < prev    next >
Text File  |  1996-04-05  |  567b  |  24 lines

  1.     --------------------------------
  2.     -- A very simple sort program --
  3.     --------------------------------
  4. with trace -- make everything traceable
  5. trace(1)   -- turn on tracing
  6.  
  7. function simple_sort(sequence x)
  8. object temp 
  9.     for i = 1 to length(x) - 1 do
  10.     for j = i + 1 to length(x) do
  11.         if compare(x[j],x[i]) < 0 then
  12.         temp = x[j]
  13.         x[j] = x[i]
  14.         x[i] = temp
  15.         end if
  16.     end for
  17.     end for
  18.     return x
  19. end function
  20.  
  21. -- Hold down the Enter key and 
  22. -- watch x get sorted before your eyes! 
  23. ? simple_sort( {9, 10, 3, 1, 4, 5, 8, 7, 6, 2} )
  24.